home *** CD-ROM | disk | FTP | other *** search
/ Nikkei Mac 20 / NIKKEI-MAC-CD-VOL-20-1998-12.ISO.7z / NIKKEI-MAC-CD-VOL-20-1998-12.ISO / オンラインソフト / 9.ウェブ作成ツール / HTML Grinder v3.35.sit / HTML Grinder v3.35 / Extras - Check it out! / Bonus but Unsupported Wheels / Site Printer / background_3885.xml next >
Extensible Markup Language  |  1997-10-23  |  3KB  |  44 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>3885</id>
  5.     <filler1>0</filler1>
  6.     <cantDelete> <false /> </cantDelete>
  7.     <showPict> <true /> </showPict>
  8.     <dontSearch> <false /> </dontSearch>
  9.     <link rel="stylesheet" type="text/css" href="stylesheet_3279.css" />
  10.     <part>
  11.         <id>5</id>
  12.         <type>button</type>
  13.         <visible> <true /> </visible>
  14.         <reserved5> 0 </reserved5>
  15.         <reserved4> 0 </reserved4>
  16.         <reserved3> 0 </reserved3>
  17.         <reserved2> 0 </reserved2>
  18.         <reserved1> 0 </reserved1>
  19.         <enabled> <true /> </enabled>
  20.         <rect>
  21.             <left>0</left>
  22.             <top>151</top>
  23.             <right>17</right>
  24.             <bottom>168</bottom>
  25.         </rect>
  26.         <style>opaque</style>
  27.         <showName> <false /> </showName>
  28.         <highlight> <false /> </highlight>
  29.         <autoHighlight> <true /> </autoHighlight>
  30.         <sharedHighlight> <true /> </sharedHighlight>
  31.         <family>0</family>
  32.         <titleWidth>0</titleWidth>
  33.         <icon>29540</icon>
  34.         <textAlign>center</textAlign>
  35.         <font>Chicago</font>
  36.         <textSize>12</textSize>
  37.         <textStyle>plain</textStyle>
  38.         <name>Help</name>
  39.         <script>on mouseUpfullhelpend mouseUpon mouseenterhelper "Click here for more help for HTML Grinder."end mouseenter</script>
  40.     </part>
  41.     <name></name>
  42.     <script>on converter thefile,thecontentsglobal totalchangesput colonstoslashes(thefile) into thefileput "file:///" before thefileput "openurl" && quote & thefile & quote && "flags 1 progressapp" &quote& "Hypercard" &quote into thecommand--put cd fld "applescript" into theASput return & thecommand after theASput return & "repeat while the busy of window 1 竕  0" after theASput return & "end repeat" after theASput return & "end tell" after theAS--do theAS as applescriptdo cd fld "quickeys" as quickeys----CLOSE WINDOW TO PREVENT DOUBLE IMAGEput cd fld "applescript" into windowcloserput return & "close window 1" &return & "end tell" after windowcloserwait (cd fld "delay")do windowcloser as applescript--add 1 to totalchangesend converteron commandkeydown whatif what is "D" thenask "Set a delay between pages in 60ths of a second (60 = 1 second)" with cd fld delayif it is a number thenput it into cd fld delayelsebeepend ifelsepass commandkeydownend ifend commandkeydownon alldoneglobal totalchangesdomenu (filename(the long name of hypercard))get totalchanges&& "pages were printed."put "0" into totalchangessend "alldone it" to homie()end alldoneon openstackif there is not a scriptinglanguage "applescript" or ﾂｬthere is not a scriptinglanguage "quickeys" thenanswer "Sorry. This wheel requires both AppleScript and QuicKeys from CE Software. You will be able to look at the wheel but not use it."disable cd btn 1elseenable cd btn 1end ifpass openstackend openstackon resetwheelput empty into cd fld netscapelocput empty into cd fld "applescript"end resetwheel</script>
  43. </background>
  44.